home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / Oberon / Deutsch / GetFirstErr_D.edt < prev    next >
Text File  |  1994-08-31  |  990b  |  56 lines
  1. /* Oberon2: Fehlerliste laden */
  2. /* .info: 16/06/93, 23:35:32, version 4 */
  3. OPTIONS RESULTS
  4. libname = "oberonsupport.library"
  5. IF ~show("L", libname) THEN DO
  6.   IF ~addlib(libname, 0, -30, 1) THEN DO
  7.     'title' "Fehler: konnete" libname "nicht öffnen."
  8.     exit
  9.   END
  10. END
  11.  
  12. 'Get' FILENAME
  13. name=RESULT
  14. IF right(name,4) ~= ".mod" THEN DO
  15.   'title' name "ist kein Oberon-2 Quelltext."
  16.   exit
  17. END
  18. name = name||"E"
  19.  
  20. numErrs = GetErrCount(name)
  21. IF numErrs <= 0 THEN DO
  22.   'title' "Keine Fehler."
  23.   exit
  24. END
  25.  
  26. IF ~GetError(name, 0, pos.) THEN DO
  27.   'ReqAction' '"Kann die Fehlerdatei|nicht laden."' "OK"
  28.   exit
  29. END
  30.  
  31. 'Busy' "Lese Fehlerliste ..."
  32. 'DisplayOff'
  33. 'OpenAllFolds'
  34.  
  35. i=0
  36. DO WHILE i<numErrs
  37.   CALL GetError(name, i, err.)
  38.   'Set' LINE err.line-1
  39.   'Set' COLUMN err.column-1
  40.   'SetBookmark' i+30
  41.   SetClip("O2#"||i,err.num)
  42.   i=i+1
  43. END
  44.  
  45. 'CloseAllFolds'
  46.  
  47. SetClip("O2Err", 0)
  48. SetClip("O2MaxErr", numErrs-1)
  49. 'GotoBookmark' 30+0
  50.  
  51. 'DisplayOn'
  52. 'BusyDone'
  53.  
  54. err=GetClip("O2#0")
  55. 'title' GetErrorText(err)
  56.